package Wagons.Wc is


   type Wagon_Wc(Model : Type_Wagon) is private;

   function Contenance (Wc :Wagon_Wc) return Positive;
   function Saisir return Wagon_Wc;
   procedure Afficher(Wc : Wagon_Wc);

private
   type Wagon_wc(Model : Type_Wagon) is new Wagon(Model) with record
      null;
   end record;

end Wagons.Wc;
